home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / shared.dir / 00648_Script_setsearch < prev    next >
Text File  |  1994-12-01  |  1KB  |  32 lines
  1. on startMovie
  2.   initSearchPath
  3.   
  4. --  unLoadCast
  5.   
  6.   global pnt,lcl,rcl,ucl,dcl
  7.   set pnt to [646,647]
  8.   set lcl to [640, 641]
  9.   set rcl to [642,643]
  10.   set ucl to [638,639]
  11.   set dcl to [644,645]
  12.   
  13. end startMovie
  14.  
  15. on stopMovie
  16.   sound close 1
  17. --  unLoadCast
  18. end stopMovie
  19.  
  20. on initSearchPath
  21.   -- set the global rootpath
  22.   global rootpath
  23.   
  24.   set the searchCurrentFolder to FALSE
  25.   
  26.   if (the machineType = 256) then -- PC
  27.     set the searchPath = [string(rootpath),string(rootpath) & "VFWMOVS\",string(rootpath) & "VFWMOVS\ADVENTUR\",string(rootpath ) &  "VFWMOVS\CHALLENG\", string(rootpath ) & "VFWMOVS\COUNCIL\",string(rootpath ) & "VFWMOVS\DREAMS\",string( rootpath ) & "VFWMOVS\ENTERPRI\"]
  28.   else -- MAC
  29.     set the searchPath = [string(rootpath),string(rootpath) & "QTMOVS:",string(rootpath) & "QTMOVS:ADVENTUR:",string(rootpath ) &  "QTMOVS:CHALLENG:", string(rootpath ) & ":QTMOVS:COUNCIL:",string(rootpath ) & "QTMOVS:DREAMS:",string(rootpath ) & "QTMOVS:ENTERPRI:"]
  30.   end if   
  31.     
  32. end initSearchPath